;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  
(DEFUN C:MYUCS ()
  (IF UPOINT NIL (LOAD"UPOINT.LSP"))
  (COMMAND "UCS" "WORLD")
  (SETQ MY_ORIGINPT (UPOINT 1 "" "Select origin point for new UCS" nil nil))
  (SETQ MY_XAXISPT (UPOINT 1 "" "Select point on X-axis of new UCS" nil MY_ORIGINPT))
  (SETQ MY_YAXISPT (UPOINT 1 "" "Select Y-axis direction of new UCS" nil MY_ORIGINPT))
  (SETQ MY_ORIGINPT (LIST (CAR MY_ORIGINPT)(CADR MY_ORIGINPT) 0.0))
  (SETQ MY_XAXISPT (LIST (CAR MY_XAXISPT)(CADR MY_XAXISPT) 0.0))
  (SETQ MY_YAXISPT (LIST (CAR MY_YAXISPT)(CADR MY_YAXISPT) 0.0))
  (COMMAND ".UCS" "NEW" "3" MY_ORIGINPT MY_XAXISPT MY_YAXISPT)
  (PRINC)
)